home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / trac / figii-8.obj < prev    next >
Encoding:
Text File  |  1994-06-27  |  640 b   |  20 lines
  1. 1001     400011 Read N, X into 11, 12
  2. 1002     001501 Load A with a 1
  3. 1003     030013 Store F at 13
  4. 1004     000011 Load N into A
  5. 1005     031502 Store at K
  6. 1006     241017 Jump to stop instruction
  7. 1007     251015 Jump to print
  8. 1008     000013 Load F
  9. 1009     150012 Multiply by X
  10. 1010     030013 Store at F
  11. 1011     001502 Load K
  12. 1012     021501 Subtract 1
  13. 1013     031502 Store at K
  14. 1014     261006 Go back to start of loop
  15. 1015     410011 Print N, X, F
  16. 1016     261001 Jump to beginning of program
  17. 1017     500000 Stop the program
  18. 1501          1 Constant 1
  19. 9999     001001 End of code
  20.